﻿
Imports Microsoft.Practices.Composite.Wpf.Events

Namespace Events


    Public Class NotImplementedPayload

        Private m_Source As Type
        Private m_Target As String
        Private m_Title As String

        Public Sub New(ByVal Title As String, ByVal Source As Type, ByVal Target As String)
            m_Source = Source
            m_Target = Target
            m_Title = Title
        End Sub

        Public Overrides Function ToString() As String
            Dim s As New System.Text.StringBuilder
            s.Append(m_Title)
            s.AppendLine()
            s.AppendFormat("Source: {0}", m_Source.Name)
            s.AppendLine()
            s.AppendFormat("Target: {0}", m_Target)
            s.AppendLine()
            Return s.ToString
        End Function

    End Class

End Namespace